home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
bipl.zip
/
PROGS.ZIP
/
IWRITER.ICN
< prev
next >
Wrap
Text File
|
1992-09-28
|
691b
|
25 lines
############################################################################
#
# File: iwriter.icn
#
# Subject: Program to write Icon code to write input
#
# Author: Ralph E. Griswold
#
# Date: March 7, 1990
#
###########################################################################
#
# Program that reads standard input and produces Icon expressions,
# which when compiled and executed, write out the original input.
#
# This is handy for incorporating, for example, message text in
# Icon programs. Or even for writing Icon programs that write Icon
# programs that ... .
procedure main()
while write("write(",image(read()),")")
end